(ispell-menu-map-needed) [ispell-message]: Be visible only if major mode

is Mail Mode.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index b78ec1a8a92088fd5d6a5b34069b41f25c960937..cf82dbdd3db3d83251d485c7638077cacb64aed1 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1086,6 +1086,7 @@ The variable `ispell-library-directory' defines the library location."
                    :help "Spell-check text in marked region"))
       (define-key ispell-menu-map [ispell-message]
        '(menu-item "Spell-Check Message" ispell-message
+                   :visible (eq major-mode 'mail-mode)
                    :help "Skip headers and included message text"))
       (define-key ispell-menu-map [ispell-buffer]
        '(menu-item "Spell-Check Buffer" ispell-buffer